Usenet 1993 July/InfoMagic USENET CD-ROM July 1993.ISO/sources/misc/volume17/calentool/part10

Internet Message Format | 1991-04-06 | 54.4 KB

From: [e-mail] (Bill Randle)
Newsgroups: comp.sources.misc
Subject: v17i091:  calentool - day/week/month/year-at-a-glance SunView tool, Part10/23
Message-ID: <[e-mail]>
Date: 6 Apr 91 02:39:13 GMT
Approved: [e-mail]
X-Checksum-Snefru: c6218331 10693a50 33a9e7a6 71c8eb93

Submitted-by: Bill Randle <[e-mail]>
Posting-number: Volume 17, Issue 91
Archive-name: calentool/part10

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#        "End of archive 10 (of 23)."
# Contents:  dates/events3 pcal.c
# Wrapped by billr@saab on Thu Mar 28 08:38:21 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'dates/events3' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'dates/events3'\"
else
echo shar: Extracting \"'dates/events3'\" \(34797 characters\)
sed "s/^X//" >'dates/events3' <<'END_OF_FILE'
X# CalenTool V2.2 - nflag=1 range=5,6 - DO NOT REMOVE THIS LINE
X# Notable events in history (May-June)
X# $Header: events3,v 1.1 91/03/07 16:19:06 billr Exp $
X# Today in History dates provided by Robert Heckendorn at
X# Hewlett-Packard in Fort Collins, Colorado.
X# Any corrections or additions may be sent to [e-mail]
X#
X# Additional dates provided from ProLine's today file
X#
X# Converted to calentool format by Larry Virden ([e-mail])
X# and further edited and merged by Bill Randle ([e-mail]).
X# All dates in this file are New Style unless otherwise noted.
X# Some duplicates may exist where I haven't been able to verify which
X# one is correct.
X#
X** 05 01 99 99 00 1st adhesive postage stamps ("Penny Blacks" from England) issued. (1840)
X** 05 01 99 99 00 1st school for the deaf founded. (1860)
X** 05 01 99 99 00 Congress changes the flag to have 15 stars and 15 stripes for the new states of Vermont and Kentucky. It was this flag that inspired the "Star Spangled Banner" (1795)
X** 05 01 99 99 00 Folies-Bergere opens in Paris. (1869)
X** 05 01 99 99 00 US Quarantine Station opens on Angel Island. (1892)
X** 05 01 99 99 00 construction begins in Chicago on the 1st skyscraper. (1884)
X** 05 03 99 99 00 1st regular steam train passenger service starts. (1830)
X** 05 03 99 99 00 Anti-war protest disrupts business in Washington (1971)
X** 05 03 99 99 00 Columbus discovers Jamaica on his second voyage (1494)
X** 05 04 99 99 00 "Waltzing Matilda" is officially adopted as Australia's National Anthem (1976)
X** 05 04 99 99 00 Four Kent State students protesting invasion of Cambodia are shot by Ohio National Guard (1970)
X** 05 04 99 99 00 Governor Peter Minuit buys Manhattan Island for $24 of scarlet cloth and brass buttons (1626)
X** 05 04 99 99 00 House of York defeats the House of Lancaster at Tewkesbury (1471)
X** 05 04 99 99 00 Phonograph shown for 1st time at the Grand Opera House. (1878)
X** 05 04 99 99 00 The Haymarket riots (1886)
X** 05 04 99 99 00 Woodward's Gardens opens to public. (1866)
X** 05 04 99 99 00 four students killed by national guardsmen during student demonstration against Cambodia incursion at Kent State University (1970)
X** 05 05 99 99 00 Carnegie Hall, originally named just "Music Hall", opens (1891)
X** 05 05 99 99 00 Council of Europe established. (1949)
X** 05 05 99 99 00 John Scopes was arrested in Tennessee for teaching Darwin's theory of Evolution (1925)
X** 05 05 99 99 00 The congressional Iran-Contra hearings opened. (1987)
X** 05 06 99 99 00 Chinese immigrants banned from the US for ten years (1882)
X** 05 06 99 99 00 Patent granted to Dr. John Farrie for a "refrigeration machine" (1851)
X** 05 06 99 99 00 The Hindenburg, a hydrogen filled zeppelin over 800 feet long, explodes during mooring in Lakehurst, NJ. Only 36 of the 98 aboard were killed. (1937)
X** 05 06 99 99 00 The Paris Exposition formally opened featuring the Eiffel Tower (1889)
X** 05 06 99 99 00 the Olympic Club, 1st athletic club in US, founded. (1860)
X** 05 07 99 99 00 Communists take Dien Bien Phu in Vietnam (1954)
X** 05 07 99 99 00 General Eisenhower accepts German surrender in WWII from General Jodl (1945)
X** 05 07 99 99 00 General Sherman begins his "march to the sea" (1864)
X** 05 07 99 99 00 Lusitania is sunk by German torpedo, 1198 dead (1915)
X** 05 07 99 99 00 The Columbia River is discovered by Capt. Robert Gray (1792)
X** 05 08 99 99 00 England and China sign an agreement that opium should be used as their main trading commodity (1911)
X** 05 08 99 99 00 First major battle of the Mexican War fought at Palo Alto, Texas resulting in victory for the U. S. forces of General Zachary Taylor (1846)
X** 05 08 99 99 00 Helmeted construction workers broke up an anti-war protest (1970)
X** 05 08 99 99 00 Hernando de Soto discovers the Mississippi River near Memphis (1541)
X** 05 08 99 99 00 John Styth Pemberton invented the syrup for a beverage that came to be known as Coca-Cola (1886)
X** 05 08 99 99 00 President Truman announces in a Radio address that World War II has ended in Europe (1945)
X** 05 08 99 99 00 Senator Gary Hart withdraws from the presidential race over allegations that he was seeing model Donna Rice (1987)
X** 05 08 99 99 00 U.S. institutes mining of Haiphong Harbor (1972)
X** 05 09 99 99 00 94 degrees F (New York City, 1979)
X** 05 09 99 99 00 Hitler burned books in Berlin (1933)
X** 05 09 99 99 00 Impeachment hearings against Richard Nixon were opened by the House Judiciary Committee (1974)
X** 05 09 99 99 00 President Wilson declares the second Sunday of May as Mother's Day (1914)
X** 05 10 99 99 00 Continental Congress issues paper currency for 1st time. (1775)
X** 05 10 99 99 00 Germany invades Low Countries (1940)
X** 05 10 99 99 00 The Driving of the Golden Spike, Promontory Point, Utah. The Transcontinential railroad is completed (1869)
X** 05 10 99 99 00 The first Mother's Day is celebrated in Philadelphia (1908)
X** 05 10 99 99 00 The first planetarium in the US opens in Chicago (1930)
X** 05 11 99 99 00 100 pounds of plutonium catches fire at Rocky Flats, Colorado (1969)
X** 05 11 99 99 00 1st US fire insurance policy is issued, in Philadelphia. (1752)
X** 05 11 99 99 00 B. F. Goodrich announced the development of a tubeless tire (1947)
X** 05 11 99 99 00 British forces capture Rangoon (1824)
X** 05 11 99 99 00 Einstein's Theory of General Relativity presented (1916)
X** 05 11 99 99 00 Glacier National Park in Montana was established (1910)
X** 05 11 99 99 00 Jay Forrester patents computer core memory. (1951)
X** 05 11 99 99 00 Minnesota became the 32nd state of the Union (1858)
X** 05 11 99 99 00 Thailand is adopted as the new name for Siam (1949)
X** 05 11 99 99 00 U.N. admits Israel (1949)
X** 05 11 99 99 00 U.S. Forces land on the Japanese held island of Attu in the Aleutians (1943)
X** 05 12 99 99 00 George VI takes the throne of England after abdication by Edward VIII (1937)
X** 05 12 99 99 00 Manitoba becomes a Canadian Province (1870)
X** 05 12 99 99 00 Russians occupy Samarkand (1868)
X** 05 12 99 99 00 The Commerce Department announced that hurricanes would no longer be named exclusively after women (1978)
X** 05 13 99 99 00 "Black Friday" signals the total collapse of the German economic system (1927)
X** 05 13 99 99 00 11 members of a high school class lost in snowstorm on Mount Hood. 2 walk to safety. Of the 9 found in a snow cave 2 days later only 2 were alive. (1986)
X** 05 13 99 99 00 Churchill gives speech, "I have nothing to offer but blood, toil, tears and sweat." (1940)
X** 05 13 99 99 00 English land to found Jamestown (1st permanent settlement) (1607)
X** 05 13 99 99 00 Institute for Electrical & Electronics Engineers (IEEE) founded (1884)
X** 05 13 99 99 00 Mary of Scotland is defeated at the battle of Langside (1568)
X** 05 13 99 99 00 Pope John Paul II was seriously wounded in St. Peter's Square by Turkish assailant Mehmet Ali Agca (1981)
X** 05 13 99 99 00 The Philadelphia police drop a bomb on a row house to flush out radicals and burn down 4 blocks of houses (1985)
X** 05 13 99 99 00 The U.S. declares war on Mexico (1846)
X** 05 13 99 99 00 The first U.S. airmail stamps were introduced (1918)
X** 05 13 99 99 00 The merchant ship Mayaguez was seized by the Cambodian Navy (1975)
X** 05 13 99 99 00 Three peasant children near Fatima, Portugal, saw a vision of the Virgin Mary (1917)
X** 05 13 99 99 00 V-E (Victory in Europe) day (1945)
X** 05 13 99 99 00 colonists arrive at Jamestown, Virginia (1607)
X** 05 14 99 99 00 Accession of Louis XIV, age 4, Anne of Austria was the regent (1643)
X** 05 14 99 99 00 Beginning of Lewis & Clark Expedition (1804)
X** 05 14 99 99 00 Edward Jenner shows that humans could be safely inoculated against smallpox with the use of cowpox (1796)
X** 05 14 99 99 00 Gail Borden applies for patent for making condensed milk. (1853)
X** 05 14 99 99 00 Nation of Israel proclaimed (1948)
X** 05 14 99 99 00 Paraguay gains it's independence. (1811)
X** 05 14 99 99 00 Representatives from eight Communist bloc countries signed the Warsaw Pact in Poland (1955)
X** 05 14 99 99 00 The Dutch army surrenders to the Germans (1940)
X** 05 14 99 99 00 The day commonly accepted as the day of Christ's ascension (33)
X** 05 14 99 99 00 Victory of English barons at the battle of Lewes (1264)
X** 05 15 99 99 00 Asylum for Inebriates founded, Binghamton NY (1854)
X** 05 15 99 99 00 Las Vegas, Nevada is founded (1905)
X** 05 15 99 99 00 Panama Canal opened (1914)
X** 05 15 99 99 00 Presidential candidate George Wallace and three bystanders were shot by Arthur H. Bremer (1972)
X** 05 15 99 99 00 The Royal Opera house, Covent Garden, opened in London (1858)
X** 05 15 99 99 00 Two women were named generals, the first ever in U.S. History (1970)
X** 05 15 99 99 00 the first nylon stockings are sold (1940)
X** 05 15 99 99 00 the last broadcast of Lowell Thomas (1976)
X** 05 16 99 99 00 Congress authorizes nickel 5-cent piece (the silver half-dime was used up to this point) (1866)
X** 05 16 99 99 00 First Class Mail now costs 8 cents (was 6 cents). (1971)
X** 05 16 99 99 00 Japanese climber Junko Tabei became the first woman to reach the (1975)summit of Mount Everest.
X** 05 16 99 99 00 Supreme court rules that bootleggers must file income-tax forms even though bootlegging is illegal (1927)
X** 05 16 99 99 00 Surgeon General released a report declaring nicotine is addictive. (1988)
X** 05 16 99 99 00 William H. Seward, bought Alaska at $0.02/acre. (1801)
X** 05 17 99 99 00 24" rain in 11 hours, Pearl River, S. China (1982)
X** 05 17 99 99 00 An Iraqi warplane attacked the U.S. Navy frigate Stark in the Persian Gulf killing thirty-seven American sailors (1987)
X** 05 17 99 99 00 President Harding opens (via telephone) 1st Valencia Orange Show in Anaheim (1921)
X** 05 17 99 99 00 Six Symbionese Liberation Army (SLA) members killed in televised gun fight (1974)
X** 05 17 99 99 00 Supreme Court rules on Brown v. Topeka Board of Education, overthrowing the principle of 'separate but equal' (1954)
X** 05 17 99 99 00 The New York Stock Exchange is founded under a tree located on what is now Wall Street (1792)
X** 05 17 99 99 00 the Watergate hearings begin (1973)
X** 05 18 99 99 00 Congress passes the Lindbergh Act (1934)
X** 05 18 99 99 00 Mount St. Helens in Washington explodes blowing off the top 1300 feet, killing 57 people and leveling 150 square miles of forest (1980)
X** 05 18 99 99 00 Napoleon crowned Emperor (1804)
X** 05 18 99 99 00 TVA Act signed by President Roosevelt. (1933)
X** 05 18 99 99 00 The Canadian city of Montreal was founded (1642)
X** 05 18 99 99 00 The Graf Zeppelin makes its maiden voyage (1930)
X** 05 18 99 99 00 The Republican Party nominated Abraham Lincoln for President (1860)
X** 05 18 99 99 00 The city of Acre is taken by Moslem forces killing or enslaving 60000 Christians (1291)
X** 05 19 99 99 00 Attempted assassination of Queen Victoria by William Hamilton (1849)
X** 05 19 99 99 00 Napoleon creates the Order of the Legion of Honor (1802)
X** 05 19 99 99 00 The British put a tax on dogs (1796)
X** 05 19 99 99 00 The Emergency Quota Immigration Act passed (1921)
X** 05 19 99 99 00 The Federated Boys' Clubs, forerunner of the Boys' Clubs of America were organized (1906)
X** 05 19 99 99 00 The Spanish Armada sets sail from Lisbon (1588)
X** 05 19 99 99 00 the Homestead Act becomes law. (1862)
X** 05 20 99 99 00 Ascension Island discovered by the Portuguese (1501)
X** 05 20 99 99 00 Charles Lindbergh starts flight from New York to Paris winning $25000 (1929)
X** 05 20 99 99 00 first speeding arrest, to Jacob German of New York City (1899)
X** 05 20 99 99 00 the digging is finished for the Panama Canal (1913)
X** 05 21 99 99 00 Charles Lindberg arrives in Paris from New York (1927)
X** 05 21 99 99 00 Last communication from the U.S. Scorpion with 99 men aboard. (1968)
X** 05 21 99 99 00 The U.S. exploded the first airborne hydrogen bomb in the Pacific. (1956)
X** 05 21 99 99 00 the American Red Cross is founded. (1881)
X** 05 22 99 99 00 Alexander the Great defeats Darius at Granicus (334 0)
X** 05 22 99 99 00 Ceylon is declared a republic and the name changes to Sri Lanka (1972)
X** 05 22 99 99 00 Hitler and Mussolini signed a "Pact Of Steel" committing Germany and Italy to a military alliance (1939)
X** 05 22 99 99 00 Mungo Park sets sail on his first voyage to Africa (1795)
X** 05 22 99 99 00 The "Great Train Robbery" took place in Indiana. (1868)
X** 05 22 99 99 00 The first steam-propelled vessel to attempt a trans-Atlantic crossing, departed from Savannah, GA (1819)
X** 05 22 99 99 00 The village of Brigadoon first disappears, only to reappear every 100 years (1753)
X** 05 22 99 99 00 U.S. Civil War ends (1865)
X** 05 22 99 99 00 the Isle of Lundy is acquired by the British National Trust (1969)
X** 05 22 99 99 00 the official opening of the Blackwall tunnel under the Thames (1897)
X** 05 23 99 99 00 Israeli raid into Argentina and successfully capture Adolf Eichmann (1960)
X** 05 23 99 99 00 South Carolina becomes the 8th state (1788)
X** 05 23 99 99 00 Two Yetis sighted, Mt. Everest (1953)
X** 05 24 99 99 00 Berkeley named (for George Berkeley, Bishop of Cloyne). (1866)
X** 05 24 99 99 00 First telegraph message (1824)
X** 05 24 99 99 00 John Hancock elected president of the Continental Congress (1775)
X** 05 24 99 99 00 Samual F.B. Morse taps out "What Hath God Wrought" (1844)
X** 05 24 99 99 00 The Brooklyn Bridge opened by Pres. Arthur & Gov. Cleveland. (1883)
X** 05 24 99 99 00 The last US Cavalry horse dies. His name was Chief. (1968)
X** 05 24 99 99 00 in Boston, the 1st auto repair shop opens. (1899)
X** 05 25 99 99 00 Argentina begins its revolt against Spain (1810)
X** 05 25 99 99 00 Captain Cook sets off on his first voyage of discovery (1768)
X** 05 25 99 99 00 Constitutional Convention convenes in Philadelphia. (1787)
X** 05 25 99 99 00 Henry Ford stops producing the Model T car (begins Model A). (1927)
X** 05 25 99 99 00 Oral Roberts sees 900 foot tall Jesus Christ, Tulsa OK (1980)
X** 05 25 99 99 00 Pres. John Kennedy declares landing a man on the Moon to be national objective (1961)
X** 05 25 99 99 00 Representative Wayne Hays admits to a "personal relationship" with Elizabeth Ray a committee staff member, who claims she'd got received her job in order to be his mistress (1976)
X** 05 25 99 99 00 Successful test of the limelight in Purfleet, England (1830)
X** 05 25 99 99 00 Transjordan, now called just Jordan, becomes a kingdom (1946)
X** 05 25 99 99 00 rebuilt Coventry Cathedral is consecrated (1962)
X** 05 26 99 99 00 Congress sets first immigration quotas (1924)
X** 05 26 99 99 00 General Kirby Smith surrenders in Texas ending the Civil War (1865)
X** 05 26 99 99 00 George Willig scaled the South Tower of New York's World Trade Center, and was arrested at the top of the 110 story building (1977)
X** 05 26 99 99 00 John Von Neumann files patent for hydrogen bomb (1946)
X** 05 26 99 99 00 Napoleon Bonaparte was crowned king of Italy. (1805)
X** 05 26 99 99 00 President Johnson avoids impeachment by 1 vote. (1868)
X** 05 26 99 99 00 The cornerstone is laid for the factory used to produce KDF vehicles which were later to be known as Volkswagen Beetles. The company town also built on this site was later to be known as Wolfsburg. (1938)
X** 05 26 99 99 00 US troops arrive in France (1917)
X** 05 27 99 99 00 Afghanistan attains sovereignty (1921)
X** 05 27 99 99 00 the Queen Mary makes her maiden voyage (1936)
X** 05 28 99 99 00 Belgium falls to Germany (1940)
X** 05 28 99 99 00 The Sierra Club founded (1892)
X** 05 28 99 99 00 United States Customs Court created by Congress. (1926)
X** 05 28 99 99 00 the Irish senate is abolished (1936)
X** 05 28 99 99 00 the Nazi's win election in Danzig (1933)
X** 05 29 99 99 00 Constantinople falls to the Turks (some believe this signalled the end of the Middle Ages) (1453)
X** 05 29 99 99 00 Edmund Hillary & Tenzing Norkay climb Mt. Everest (1953)
X** 05 29 99 99 00 Einstein's Theory of General Relativity tested during solar eclipse (1919)
X** 05 29 99 99 00 First Class postage now 15 cents (was 13 cents for 3 years). (1978)
X** 05 29 99 99 00 Patrick Henry denounced the Stamp Act before Virginia's House of Burgesses (1765)
X** 05 29 99 99 00 Rhode Island becomes the 13rd state (1790)
X** 05 29 99 99 00 Wisconsin becomes the 30th state (1848)
X** 05 29 99 99 00 first food stamps are issued (1961)
X** 05 30 99 99 00 U.S. Marines sent to Nicaragua (1912)
X** 05 30 99 99 00 first US auto accident (1896)
X** 05 31 99 99 00 1st electric railway opens at Berlin Trades Exposition. (1879)
X** 05 31 99 99 00 1st recorded bicycle race, 2 kilometers in Paris. (1868)
X** 05 31 99 99 00 26,000 buried chicken carcasses explode in Sheridan, OR sending chicken pieces 40 feet or more after gases build up from decay (1986)
X** 05 31 99 99 00 Johnstown Flood (1889)
X** 05 31 99 99 00 Tens of thousands of people in Peru died in an earthquake. (1970)
X** 05 31 99 99 00 The last concrete is poured on the locks at the Panama Canal (1913)
X** 05 31 99 99 00 the 17th amendment, senatorial elections, proclaimed (1913)
X** 05 31 99 99 00 the battle of Jutland is fought (1916)
X** 05 31 99 99 00 the first Lady Godiva procession held in Coventry celebrating her 12th century ride (1678)
X** 06 01 99 99 00 Kentucky became the 15th state. (1792)
X** 06 01 99 99 00 Maine became the first state to enact a law prohibiting alcohol. (1851)
X** 06 01 99 99 00 Mauna Loa erupts from the Southwest rift 600M cubic yards of lava over 23 days (1950)
X** 06 01 99 99 00 Tennessee became the 16th state. (1796)
X** 06 01 99 99 00 The first seismographs to be installed in California are installed in the Lick Observatory (1888)
X** 06 01 99 99 00 The mortally wounded commander of the U.S. Frigate Chesapeake is heard to say "Don't give up the ship" in his losing battle with the British. This later becomes the motto of the U.S. Navy. (1813)
X** 06 02 99 99 00 Native Americans "granted" citizenship (1924)
X** 06 02 99 99 00 Queen Elizabeth II is crowned in Westminster Abbey (1953)
X** 06 03 99 99 00 First diplomatic missions exchanged between Cuba and the U.S. since 1961 (1977)
X** 06 03 99 99 00 Pope John Paul II left the hospital after an attempt on his life. (1981)
X** 06 03 99 99 00 The Duke of York defeats the Dutch fleet off the coast of Harwich (1665)
X** 06 04 99 99 00 First minimum wage law (1912)
X** 06 04 99 99 00 Henry Ford takes a test drive of his car through the streets of Detroit (1896)
X** 06 04 99 99 00 Kublai becomes Khan (1250)
X** 06 04 99 99 00 Roquefort cheese developed (1070)
X** 06 04 99 99 00 The English army seizes King Charles I as a hostage (1647)
X** 06 04 99 99 00 The Louisiana Territory was renamed the Missouri Territory (1812)
X** 06 04 99 99 00 The SS St. Louis with more than 930 Jewish refugees, was turned away from the Florida coast. ("Voyage of the Damned") (1939)
X** 06 04 99 99 00 The last Great Auk, a flightless sea bird of the North, is tragically clubbed to death (1844)
X** 06 04 99 99 00 Thousands feared killed as Chinese Army swept into the heart of Beijing and into Tiananmen Square to break up student demonstrations (1989)
X** 06 04 99 99 00 Turkey turns Cyprus over to the British (1878)
X** 06 05 99 99 00 Danish women get the vote (1915)
X** 06 05 99 99 00 Denmark becomes a constitutional monarchy. (1849)
X** 06 05 99 99 00 Egypt reopens the Suez Canal to international shipping, 8 years after the Six Day War (1975)
X** 06 05 99 99 00 General William T. Sherman refuses the Republican presidential nomination with the words, "I will not accept if nominated and will not serve if elected." (1884)
X** 06 05 99 99 00 The LA Zoot Suit riots (1943)
X** 06 05 99 99 00 The U.S. goes off of the gold standard (1933)
X** 06 05 99 99 00 US Marines arrive in Cuba (1912)
X** 06 05 99 99 00 beginning of "The Six Day War" in the Middle East (1967)
X** 06 05 99 99 00 formal opening of the Pacific Stock Exchange. (1875)
X** 06 05 99 99 00 the earthen Teton Dam North of Idaho Falls collapses flooding a large valley and killing over 100 people (1976)
X** 06 06 99 99 00 1st drive-in theatre opens, in Camden, New Jersey. (1933)
X** 06 06 99 99 00 Allied forces invade Europe in World War II, the D-Day invasion (1944)
X** 06 06 99 99 00 Californians pass proposition 13, the tax control law (1978)
X** 06 06 99 99 00 Finland declares war on the USSR (1919)
X** 06 06 99 99 00 Half of Limon Colorado is destroyed by a force three Tornado (1990)
X** 06 06 99 99 00 The Longleat hedge maze was opened. It is currently the largest maze having 1.61 miles of paths bordered by over 16000 yew trees (1978)
X** 06 06 99 99 00 The Young Men's Christian Association was founded in London. (1844)
X** 06 07 99 99 00 French forces occupy Mexico City (1863)
X** 06 07 99 99 00 Gay Liberation Movement starts with the Stonewall Bar riots in New York. The riots lasted three days and were precipitated by a police raid. (1969)
X** 06 07 99 99 00 Richard Henry Lee of Virginia proposed to the Continental Congress a resolution calling for a Declaration of Independence (1776)
X** 06 07 99 99 00 Sony introduces the first home VCR for $995. By 1988 62% of U.S. homes have a VCR. (1965)
X** 06 07 99 99 00 The first sitting of the Northern Ireland Parliament (1921)
X** 06 07 99 99 00 U.S. refuses to recognize the Mexican government (1921)
X** 06 08 99 99 00 1st commercially-made ice cream sold in New York. (1786)
X** 06 08 99 99 00 Cable Cars begin service in Los Angeles. (1889)
X** 06 08 99 99 00 Inventor Ives W. McGaffey received a patent for a vacuum cleaner. (1869)
X** 06 08 99 99 00 The The Church of Jesus Christ of Latter-day Saints (The Mormons) announces that it will now accept all eligible males into the priesthood regardless of race. Previously Black males were excluded. (1978)
X** 06 08 99 99 00 bill establishing Bryce Canyon National Park signed by President Calvin Coolidge (1923)
X** 06 08 99 99 00 first ad for ice cream (1786)
X** 06 09 99 99 00 1st meeting of the Board of Regents, University of California. (1868)
X** 06 09 99 99 00 American educator Thomas Sutherland was kidnapped in Lebanon. (1985)
X** 06 09 99 99 00 Norway surrenders to the Germans in World War II (1940)
X** 06 09 99 99 00 Oak Harbor nuclear power plant in Ohio loses its coolant (1985)
X** 06 09 99 99 00 The Senate confirmed Warren Burger to be chief justice of the United States, succeeding Earl Warren (1969)
X** 06 09 99 99 00 Thomas Sutherland, acting dean of agriculture at American University of Beirut, is kidnapped in Lebanon (1985)
X** 06 10 99 99 00 Alcoholics Anonymous was founded in Akron, Ohio, by William G. (1935)Wilson and Dr. Robert Smith
X** 06 10 99 99 00 Burning of the Gaspee, British revenue cutter by Rhode Islanders (1772)
X** 06 10 99 99 00 Embargo on exporting goods to China is lifted by President Nixon (1971)
X** 06 10 99 99 00 Great flooding of South Dakota kills hundreds (1972)
X** 06 10 99 99 00 Joan of Arc defeats the Earl of Suffolk (1429)
X** 06 10 99 99 00 The 'Agnes' arrives in New Orleans with the 1st ever shipment of frozen beef (1869)
X** 06 10 99 99 00 US Marines land at Cuba in Spanish-American War. (1898)
X** 06 10 99 99 00 US Senate votes for cloture after 75 day filibuster by Southern States on the Civil Rights Bill (1964)
X** 06 10 99 99 00 first tornado recorded in America hits New Haven Connecticut (1682)
X** 06 11 99 99 00 Capt. James Cook ran onto the Great Barrier Reef off Australia. (1770)
X** 06 11 99 99 00 Greeks seize Troy (1184 BC)
X** 06 11 99 99 00 The Continental Congress formed a committee to draft a Declaration of Independence from Britain (1776)
X** 06 11 99 99 00 The Supreme Court strikes down the federal flag protection law in a 5-4 decision (1990)
X** 06 12 99 99 00 26 year old cyclist Bryan Allen flew the human powered aircraft the "Gossamer Albatross" across the English Channel (1979)
X** 06 12 99 99 00 An estimated 750,000 anti-nuclear demonstrators filled New York's Central Park (1982)
X** 06 12 99 99 00 England installs municipal government in New York which had been under Dutch rule as New Amsterdam (1665)
X** 06 12 99 99 00 Harry Houdini astounds New Yorkers by freeing himself of a straitjacket while upside down 40 feet in the air (1923)
X** 06 12 99 99 00 Nelson Mandela, South African antiapartheid leader, is sentenced to life imprisonment (1964)
X** 06 12 99 99 00 Phillipines gains its independence from Spain (1898)
X** 06 12 99 99 00 South Africa declares a state of emergency and severely restricts news coverage (1986)
X** 06 12 99 99 00 The Senate passes bill that renews draft registration (1980)
X** 06 12 99 99 00 The Soviet Union executes 8 army leaders in its purge under Stalin (1937)
X** 06 12 99 99 00 Victor Hugo fined and imprisoned for writing an article condemning capital punishment (1851)
X** 06 12 99 99 00 Virginia's Colonial legislature; first to adopt a Bill of Rights. (1776)
X** 06 12 99 99 00 the first railroad opens in Japan (1872)
X** 06 13 99 99 00 A ticker-tape parade welcomed aviation hero Charles Lindbergh to NY (1927)
X** 06 13 99 99 00 Queen Victoria gets her first train ride (1842)
X** 06 13 99 99 00 US Supreme Court issued landmark decision: Miranda vs Arizona, granting constitutional rights to suspects (1966)
X** 06 13 99 99 00 beginning of the Boxer rebellion in China (1900)
X** 06 14 99 99 00 Bunson invents a gas burner. (1847)
X** 06 14 99 99 00 California (Bear Flag) Republic proclaimed in Sonoma. (1846)
X** 06 14 99 99 00 Germans enter Paris (1940)
X** 06 14 99 99 00 Keel laid for 1st nuclear powered submarine, the Nautilus. (1952)
X** 06 14 99 99 00 President Eisenhower signed an order adding the words "under God" to the Pledge of Allegiance (1954)
X** 06 14 99 99 00 Sandpaper invented by I. Fischer, Jr. (1834)
X** 06 14 99 99 00 Stars and Stripes adopted as US flag, replacing Grand Union flag. (1777)
X** 06 14 99 99 00 The Supreme Court upholds the sobriety checkpoint as a necessary infringement of rights (1990)
X** 06 14 99 99 00 The Vatican announces that the Index of Prohibited Books is abolished (1966)
X** 06 15 99 99 00 Arkansas becomes the 25th state (1836)
X** 06 15 99 99 00 Ben Franklin performs his famous kite experiment (1752)
X** 06 15 99 99 00 France surrendered to Hitler. (1940)
X** 06 15 99 99 00 J. Edgar Hoover is appointed as head of the FBI (1924)
X** 06 15 99 99 00 King John signs the Magna Carta at Runnymede. (1215)
X** 06 15 99 99 00 Native Americans made US citizens (1915)
X** 06 15 99 99 00 Washington appointed commander-in-chief of the American Army. (1775)
X** 06 15 99 99 00 the ninth Fermat number is factored by Mannasse and Lenstra using British mathematician John Pollard's number field sieve. It two months using hundreds of computers. (1990)
X** 06 16 99 99 00 First Congress of Soviets (1917)
X** 06 16 99 99 00 Ford Motor CO. was incorporated. (1903)
X** 06 16 99 99 00 ITT (International Telephone and Telegraph) is incorporated (1920)
X** 06 16 99 99 00 Soviet ballet dancer Rudolf Nureyev defected to the West. (1961)
X** 06 16 99 99 00 The Soweto uprising in South Africa results in the death of over 500 Blacks (1976)
X** 06 16 99 99 00 the Battle of Bunker Hill (actually it was Breed's Hill). (1775)
X** 06 17 99 99 00 British peace offer rejected by Congress (1778)
X** 06 17 99 99 00 China explodes its first Hydrogen bomb (1967)
X** 06 17 99 99 00 Crazy Horse defeats General Crook (1876)
X** 06 17 99 99 00 King Edward III renounces all claims of sovereignty over Scotland (1328)
X** 06 17 99 99 00 Last German air raid on Britain in World War I (1918)
X** 06 17 99 99 00 Republic of Iceland proclaimed at Thingvallir, Iceland. (1944)
X** 06 17 99 99 00 Revolts in East Germany against the communist state (1953)
X** 06 17 99 99 00 Russia occupies the Baltic states (1940)
X** 06 17 99 99 00 Seven men are arrested in Watergate Democratic National Committee break-in (1972)
X** 06 17 99 99 00 The Maori uprisings in New Zealand against the British (1843)
X** 06 17 99 99 00 The Supreme Court struck down rules requiring the Lord's Prayer or Bible verses in public schools (1963)
X** 06 17 99 99 00 Watergate Democratic National Committee Break-In (1972)
X** 06 18 99 99 00 Napoleon Bonaparte was defeated by French forces in Belgium (Battle of Waterloo) (1815)
X** 06 18 99 99 00 Susan B. Anthony, was fined $100 for trying to vote in 1872 presidental election (1873)
X** 06 18 99 99 00 War of 1812 begins. (1812)
X** 06 18 99 99 00 Woman's Sufferage Convention held at Merchantile Liberty Hall. (1872)
X** 06 19 99 99 00 Anaheim Post Office established. (1861)
X** 06 19 99 99 00 Civil Rights Acts survived an 83 day filibuster in US Senate and was approved by a vote of 73-27 (1964)
X** 06 19 99 99 00 John F. Kennedy addresses Congress on civil rights (1963)
X** 06 19 99 99 00 Lizzie Borden acquitted of killing her parents with an ax (1893)
X** 06 19 99 99 00 Washington's troops finally leave Valley Forge. (1778)
X** 06 20 99 99 00 Calcutta is captured and the English are put in the "Black Hole" (1756)
X** 06 20 99 99 00 Congress adopts the "Great Seal of the United States" (1782)
X** 06 20 99 99 00 Queen Victoria crowned (1837)
X** 06 20 99 99 00 The New York Times announced its intention to use the honorific Ms. in both news articles and editorials (1986)
X** 06 20 99 99 00 The United States chooses the Eagle as it's symbol. (1782)
X** 06 20 99 99 00 US forces complete the taking of Okinawa (1945)
X** 06 20 99 99 00 West Virginia becomes the 35th state (1863)
X** 06 21 99 99 00 An earthquake hits Iran killing over 50000 people (1990)
X** 06 21 99 99 00 Berlin airlift begins (1948)
X** 06 21 99 99 00 In a 57 to 46 vote the U.S. Constitution comes into force as New Hampshire votes to ratify the Constitution (1788)
X** 06 21 99 99 00 New Hampshire becomes the 9th state (1788)
X** 06 21 99 99 00 The German Afrika corps under Rommel, take Tobruk (1942)
X** 06 21 99 99 00 The Golden Jubilee of Queen Victoria (1887)
X** 06 21 99 99 00 The Irish Rebellion ends with the rebel defeat at Vinegar Hill (1798)
X** 06 21 99 99 00 The Scuttling of the German Fleet at Scapa Flow (1919)
X** 06 21 99 99 00 The annexation of Zululand by the British (1887)
X** 06 21 99 99 00 The foundation stone for the Capitoline Temple is laid in Rome (70)
X** 06 21 99 99 00 The laying of the first stone for Christopher Wren's rebuilding of St. Paul's Cathedral (1675)
X** 06 22 99 99 00 Abolhassan Bani-Sadr, president of Iran, impeached and he flees to Paris where he sets up the National Resistance Council to try to overthrow Khomeini (1981)
X** 06 22 99 99 00 Antiochus III, the Great, is defeated by Ptolemy the IV, King of Egypt (217 0)
X** 06 22 99 99 00 Checkpoint Charles, between East and West Berlin is dismantled (1990)
X** 06 22 99 99 00 Civil rights workers disappear in Mississippi (1964)
X** 06 22 99 99 00 Congress created the Department of Justice. (1870)
X** 06 22 99 99 00 Coronation of George V in England (1911)
X** 06 22 99 99 00 France falls to Nazi Germany. (1940)
X** 06 22 99 99 00 Kansas City stops using streetcars in it's transit system. (1957)
X** 06 22 99 99 00 Monmouth defeats The Covenanters at Bothwell Brig in Scotland (1679)
X** 06 22 99 99 00 Royal Greenwich Observatory founded (1675)
X** 06 22 99 99 00 US and Soviet Union signed an agreement to establish hot line. (1963)
X** 06 22 99 99 00 Zebulon Pike reaches his peak. (1808)
X** 06 22 99 99 00 accession of Richard II of England (1377)
X** 06 22 99 99 00 the Germans invade Russia (1941)
X** 06 22 99 99 00 the doughnut is invented. (1847)
X** 06 23 99 99 00 Franklin Delano Roosevelt's last fireside chat (1944)
X** 06 23 99 99 00 Slavery abolished in England (1772)
X** 06 23 99 99 00 Typewriter patented (1868)
X** 06 23 99 99 00 U.S. Secret Service is formed (1860)
X** 06 23 99 99 00 a subpoena is served on Richard Nixon asking for the White House tapes (1973)
X** 06 24 99 99 00 John Cabot, explorer, discovers Canada (1497)
X** 06 24 99 99 00 Mutiny at Sebastopol by the Russian Black Sea Fleet (1917)
X** 06 24 99 99 00 Senate repeals Gulf of Tonkin resolution (1970)
X** 06 24 99 99 00 The Berlin Airlift begins (1948)
X** 06 25 99 99 00 Custer's Last Stand at the Little Big Horn (1876)
X** 06 25 99 99 00 North Korea invades South Korea (1950)
X** 06 25 99 99 00 The Fork is introduced to American dining by Gov. Winthrop. (1630)
X** 06 25 99 99 00 Virginia becomes the 10th state (1788)
X** 06 26 99 99 00 FDR signs Federal Credit Union Act, establishing Credit Unions. (1934)
X** 06 26 99 99 00 Richard the III becomes King of England (1483)
X** 06 26 99 99 00 St. Lawrence Seaway dedicated by Eisenhower & Queen Elizabeth II (1959)
X** 06 26 99 99 00 Toothbrush invented (1498)
X** 06 26 99 99 00 William IV becomes King of England (1830)
X** 06 27 99 99 00 100 degrees F (Fort Yukon, 1915)
X** 06 27 99 99 00 British soldiers and others massacred at Cawnpore, India (1857)
X** 06 27 99 99 00 Cairo falls to British forces (1801)
X** 06 27 99 99 00 Central London Electric Tube Railroad is opened between bank and Shepard's Bush (1900)
X** 06 27 99 99 00 Jack Cade defeats Stafford at Sevenoaks (1450)
X** 06 28 99 99 00 Battle of Monmouth during the Revolutionary War (1778)
X** 06 28 99 99 00 Queen Victoria of Great Britain is crowned (1838)
X** 06 28 99 99 00 Seoul, Korea is taken by North Korean Forces (1950)
X** 06 28 99 99 00 Spillways first used at Glen Canyon Dam (1983)
X** 06 28 99 99 00 Supreme Court decides in favor of Alan Bakke (1978)
X** 06 28 99 99 00 Treaty of Versailles (1919)
X** 06 28 99 99 00 machines that dispense a hard boiled egg for a nickel are installed throughout Pennsylvania to dispose of egg surplus (1938)
X** 06 28 99 99 00 mutiny on the battleship Potemkin (1905)
X** 06 28 99 99 00 the Treaty of Versailles, ending World War I, was signed. (1919)
X** 06 28 99 99 00 the tomato is proved to be nonpoisonous. (1820)
X** 06 29 99 99 00 Congress ratifies Gadsden Purchase, adds parts of New Mexico, Arizona (1854)
X** 06 29 99 99 00 President Theodore Roosevelt signs bill establishing Mesa Verde National Park (1906)
X** 06 29 99 99 00 Tahiti is annexed by France (1880)
X** 06 29 99 99 00 The Globe Theatre burns down during a performance of Henry VIII (1613)
X** 06 29 99 99 00 Trade unions legalized in England by an act of Parliament (1871)
X** 06 29 99 99 00 US forces withdraw from Cambodia (1970)
X** 06 29 99 99 00 US troops enter New Guinea (1943)
X** 06 29 99 99 00 the very first 1st National Bank opens in Davenport, Iowa. (1863)
X** 06 30 99 99 00 China & Soviet Union announce split over ideology (1960)
X** 06 30 99 99 00 Mahatma Gandhi's 1st arrest, in campaign for Indian equal rights in South Africa (1914)
X** 06 30 99 99 00 The pillory is no longer a means of punishment in the United Kingdom (1837)
X** 06 30 99 99 00 Yosemite becomes a California State Park (1864)
X** 06 30 99 99 00 Zaire gains it's independence. (1960)
X** 06 30 99 99 00 a giant fireball impacts in Central Siberia (the Tunguska Event). (1908)
X** 06 30 99 99 00 the Excelsior diamond (blue-white, 995 carats) discovered. (1893)
END_OF_FILE
if test 34797 -ne `wc -c <'dates/events3'`; then
    echo shar: \"'dates/events3'\" unpacked with wrong size!
fi
# end of 'dates/events3'
fi
if test -f 'pcal.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'pcal.c'\"
else
echo shar: Extracting \"'pcal.c'\" \(17400 characters\)
sed "s/^X//" >'pcal.c' <<'END_OF_FILE'
X/*
X * $Header: pcal.c,v 2.5 91/03/27 16:46:14 billr Exp $
X */
X#include "ct.h"        /* for NO_PRINTER define */
X
X#ifndef NO_PRINTER
X#ifndef RASTER_ONLY
X/*
X * pcal - print pretty PostScript image of a month calendar
X *
X * Pieces extracted from the pcal program by Ken Keirnan and modified
X * slightly by Bill Randle, Tektronix, Inc. <[e-mail]>.
X *
X * "Pcal" is a program to print PostScript calendars for any month and year.
X * Pcal is the combined effort of several people, most notably Patrick Wood
X * of Pipeline Associates, Inc. for the original PostScript code and Bill
X * Vogel of AT&T for the calendar file mechanism.  My part was simple
X * translation to a "C" program, the addition of a couple options and a more
X * generalized date searching routine (oh yes, and a manual page :-).
X *
X * The original calendar PostScript was Copyright (c) 1987 by Patrick Wood
X * and Pipeline Associates, Inc. with permission to modify and redistribute.
X *
X * Ken Keirnan
X * Pacific Bell
X * San Ramon, CA.
X *
X * Changes and additions Copyright (C) 1989, 1991 Tektronix, Inc.
X *    All Rights Reserved
X * Permission is hereby granted to use and modify the modifications in source
X * or binary form as long as they are not sold for profit and this copyright
X * notice remains intact.
X *
X * Modified by PM Lashley, KLA Instruments, Inc.
X * Fixes and extentions:                1..2 June, 1989
X *    1. Notes were extending beyond the right and bottom edges of the day.
X *       They are now line-wrapped with indentation.
X *    3. Bottom justify notes for each day.  Truncate if there are too many
X *       to fit.
X *    3. If month starts on a Wednesday or later, put the previous/next
X *       month inserts in the first two day boxes instead of the last two.
X *    4. Center the month inserts vertically in the day box.
X *    5. When possible, draw the calendar in a 5x7 grid instead of a 6x7
X *       grid.  Each day will be taller, and accomodate more note text.
X *    6. Added various comments to the Postscript code array.
X *    7. If a periodic event was removed for given occurance, that event
X *       would be printed twice when it should not be printed at all.
X *    8. Replaced the constant "Helvetica-Narrow" with PS_NOTE_FONT for
X *       sites which do not have the Helvetica-Narrow font but do have
X *       some preference other than the default.
X *
X * Left to do:
X *    1. If a 31 day month starts on Tuesday, the previous month should
X *       be in the upper left, and the next month in the lower right.
X *       This may be more trouble than it is worth.
X *
X * Notes:
X *    1. The Postscript code layout is a compromise between readability
X *       and compaction.  All comments and vertical spacing are in the
X *       c source only to keep the output file size small.
X *
X * Further changes and additions Copyright (C) 1989 PM Lashley
X *    All Rights Reserved
X * Permission is hereby granted to use and modify the modifications in source
X * or binary form as long as they are not sold for profit and this copyright
X * notice remains intact.
X *
X * Several more additions by Hakan Kallberg ([e-mail]) to support
X * printing Monday first in the week and natural language support for
X * Swedish.
X *
X */
X
X#include <stdio.h>
X#include <time.h>
X
Xextern struct tm current, First;
Xextern struct dayslot *slots;
Xextern int get_day_appts();
Xextern int monday_first;
Xextern int n_slots;
Xextern int deleted();
Xextern char *p_lang_header[];
X
X/*
X * pmonfirst - replace strings for entries in pheader for monday first
X * calendars.
X */
Xstatic char *pmonfirst[] = {
X    "  [ (Monday) (Tuesday) (Wednesday) ",
X    "    (Thursday) (Friday) (Saturday) (Sunday) ]",
X    "    day start add 1 add 7 mod 0 eq {",
X    "    day start add 1 add 7 mod 1 eq {",
X    "  1 sub dup -1 eq { pop 6 } if"
X};
X
X/*
X * pheader - provides the PostScript routines
X */
Xstatic char *prolog[] = {
X    "%!",
X    "%%Creator: Pipeline Associates",
X    "%%Title: calentool's month-at-a-glance",
X    "%%Modifed: Ken Keirnan, Bill Randle, PM Lashley, Richard Wolff and Hakan Kallberg",
X    "%%DocumentFonts: Times-Bold Helvetica-Bold Helvetica-Narrow",
X    "%%Bounding Box: 0 0 500 700",
X    "%%Pages: 1",
X    "%%EndComments",
X    "/titlefont /Times-Bold def",
X    "/dayfont /Helvetica-Bold def",
X    (char *)0
X};
X
Xstatic char *pheader[] = {
X    "/month_names [ (January) (February) (March) (April) (May) (June) (July)",
X    "  (August) (September) (October) (November) (December) ] def",
X    "/prtnum { 3 string cvs show} def",
X    /*
X     * -  -weeks-  int
X     *
X     * Pushes the number of week lines (rows) necessary for the current month.
X     */
X    "/weeks {",
X    "  startday ndays add 35 gt { 6 } { 5 } ifelse",
X    "} def",
X
X    /*
X     * -  -monthHeight-  int
X     *
X     * Pushes the height of an individual day box for the current month.
X     */
X    "/monthHeight { weeks 5 eq { 96 } { 80 } ifelse } def",
X
X    /*
X     * Draw the day names and the grid for the current month
X     */
X    "/drawgrid {",
X    "  dayfont findfont 10 scalefont setfont",
X    "  0 1 6 {",
X    "    dup dup 100 mul 40 moveto",
X    "    [  (Sunday) (Monday) (Tuesday) (Wednesday)",
X    "      (Thursday) (Friday) (Saturday) ]",
X    "    exch get",
X    "    100 center",
X    "    100 mul 35 moveto",
X    "    1.0 setlinewidth",
X    "    0 1 weeks 1 sub {",
X    "      gsave",
X    "        100 0 rlineto",
X    "        0 monthHeight neg rlineto",
X    "        -100 0 rlineto",
X    "        closepath stroke",
X    "      grestore",
X    "      0 monthHeight neg rmoveto",
X    "    } for",
X    "  } for",
X    "} def",
X
X    /*
X     * Draw in the day numbers for each day of the current month.
X     *
X     * Sunday (and possibly Saturday) will be gray.
X     */
X    "/drawnums {",
X    "  dayfont findfont 30 scalefont setfont",
X    "  /start startday def",
X    "  /days ndays def",
X    "  start 100 mul 5 add 10 rmoveto",
X    "  1 1 days {",
X    "    /day exch def",
X    "    gsave",
X#ifndef SATBLK
X    "      day start add 7 mod 0 eq {",
X    "        submonth 0 eq { .8 setgray } if",
X    "      } if",
X#endif
X    "      day start add 7 mod 1 eq {",
X    "        submonth 0 eq { .8 setgray } if",
X    "      } if",
X    "      day prtnum",
X    "    grestore",
X    "    day start add 7 mod 0 eq",
X    "    { currentpoint exch pop monthHeight sub 5 exch moveto }",
X    "    { 100 0 rmoveto }",
X    "    ifelse",
X    "  } for",
X    "} def",
X
X    /*
X     * Gray out the day boxes before the first day of the month and after
X     * the last day of the month.  If this is not a submonth, leave two
X     * blank for the previous and next month miniature calendars.
X     */
X    "/drawfill {",
X    "  /start startday def",
X    "  1.0 setlinewidth",
X    "  submonth 1 eq {",
X    "   0 35 rmoveto",
X    "   /grayWidth start 100 mul def",
X    "   /lastday 7 def",
X    "  } {",
X    "   start 3 ge {",
X    "     200 35 rmoveto",
X    "     /grayWidth start 2 sub 100 mul def",
X    "     /lastday 7 def",
X    "   } {",
X    "     0 35 rmoveto",
X    "     /grayWidth start 100 mul def",
X    "     /lastday 5 def",
X    "   } ifelse",
X    "  } ifelse",
X    "  grayWidth 0 gt {",
X    "   gsave",
X    "     .9 setgray",
X    "     grayWidth 0 rlineto",
X    "     0 monthHeight neg rlineto",
X    "     grayWidth neg 0 rlineto",
X    "     closepath fill",
X    "   grestore",
X    "  } if",
X    "  /endday startday ndays add 7 mod def",
X    "  endday 0 ne {",
X    "   ndays startday add 7 mod 100 mul",
X    "   weeks 1 sub neg monthHeight mul 35 add moveto",
X    "   /grayWidth lastday 100 mul currentpoint pop sub def",
X    "   grayWidth 0 gt {",
X    "    gsave",
X    "      .9 setgray",
X    "      grayWidth 0 rlineto",
X    "      0 monthHeight neg rlineto",
X    "      grayWidth neg 0 rlineto",
X    "      closepath fill",
X    "    grestore",
X    "   } if",
X    "  } if",
X    "} def",
X
X    "/isleap {",
X    "  year 4 mod 0 eq",
X    "  year 100 mod 0 ne",
X    "  year 400 mod 0 eq or and",
X    "} def",
X
X    "/days_month [ 31 28 31 30 31 30 31 31 30 31 30 31 ] def",
X
X    /*
X     * -  -ndays-  int
X     *
X     * Push number of days in current month.  Account for leap February.
X     */
X    "/ndays {",
X    "  days_month month 1 sub get",
X    "  month 2 eq",
X    "  isleap and { 1 add } if",
X    "} def",
X
X    /*
X     * -  -startday-  int
X     *
X     * Push the day of the week on which the first of the current month falls.
X     */
X    "/startday {",
X    "  /off year 2000 sub def",
X    "  off",
X    "  off 4 idiv add",
X    "  off 100 idiv sub",
X    "  off 400 idiv add",
X    "  6 add 7 mod 7 add",
X    "  /off exch def",
X    "  1 1 month 1 sub {",
X    "    /idx exch def",
X    "    days_month idx 1 sub get",
X    "    idx 2 eq",
X    "    isleap and",
X    "    { 1 add } if",
X    "    /off exch off add def",
X    "  } for",
X    "  off 7 mod",
X    "% Place holder",
X    "} def",
X
X    "/center {",
X    "  /width exch def",
X    "  /str exch def width str ",
X    "  stringwidth pop sub 2 div 0 rmoveto str show",
X    "} def",
X
X    /*
X     * Draw an entire month calendar.
X     * (Without any previous/next subcalendars.)
X     */
X    "/calendar",
X    "{",
X    "  titlefont findfont 48 scalefont setfont",
X    "  0 60 moveto",
X    "  /month_name month_names month 1 sub get def",
X    "  month_name show",
X    "  /yearstring year 10 string cvs def",
X    "  700 yearstring stringwidth pop sub 60 moveto",
X    "  yearstring show",
X    "  0 0 moveto",
X    "  drawnums",
X    "  0 0 moveto",
X    "  drawfill",
X    "  0 0 moveto",
X    "  drawgrid",
X    "} def",
X
X    /*
X     * array-of-notes  -daytext-  -
X     */
X    "/daytext {",
X    "  /mytext exch def /myday exch def",
X    "  /bottom monthHeight 30 sub def",
X    "  startday myday 1 sub add dup",
X    "  7 mod 100 mul 5 add /LM exch def",
X    "  7 idiv monthHeight neg mul /ylimit exch def",
X    "  ylimit bottom sub /ypos exch def",
X    "  /RM LM 95 add def /ystart ypos def",
X    "  mytext {",
X    "    95 90 { pop pop /ystart ystart 8 add def } breakIntoLines",
X    "    ystart ylimit le { /ypos ystart def } if",
X    "  } forall",
X    "  /ylimit ylimit bottom sub def",
X    "  mytext { 95 90 { prstr } breakIntoLines } forall",
X    "} def",
X
X    /*
X     * string maxwidth  -prstr-  -
X     */
X    "/prstr {",
X    "  ypos ylimit gt {",
X    "    RM exch sub ypos moveto show",
X    "    /ypos ypos 8 sub def",
X    "  } {",
X    "   pop pop",
X    "  } ifelse",
X    "} def",
X
X    /*
X     * Word break string for breakIntoLines.
X     */
X    "/space ( ) def",
X
X    /*
X     * string  first-width  next-width  proc  -breakIntoLines-  -
X     *
X     * Break the string into lines.  The first line will fit within
X     * first-width.  Later lines will fit within next-width.  For each
X     * line, push the string and current width then execute proc.
X     *
X     * This is a modification of the function listed in the Blue book
X     * (Postscript Language Tutorial and Cookbook, Adobe Systems, Inc.).
X     * The modifications are:
X     *    1.    The addition of the next-width parameter to handle indentation.
X     *  2.    The original would not break the line if only the last word
X     *        extended beyond the limit.
X     */
X    "/breakIntoLines {",
X    "  /proc exch def",
X    "  /nextlinewidth exch def",
X    "  /linewidth exch def",
X    "  /textstring exch def",
X    "  /breakwidth space stringwidth pop def",
X    "  /curwidth 0 def",
X    "  /lastwordbreak 0 def",
X    "  /startchar 0 def",
X    "  /restoftext textstring def",
X    "  {",
X    "   restoftext space search {",
X    "     /nextword exch def pop",
X    "     /restoftext exch def",
X    "      /wordwidth nextword stringwidth pop def",
X    "      curwidth wordwidth add linewidth gt {",
X    "           textstring startchar",
X    "        lastwordbreak startchar sub",
X    "        getinterval linewidth proc",
X    "        /startchar lastwordbreak def",
X    "        /curwidth wordwidth breakwidth add def",
X    "           /linewidth nextlinewidth def",
X    "      } {",
X    "           /curwidth curwidth wordwidth add breakwidth add def",
X    "     } ifelse",
X    "      /lastwordbreak lastwordbreak nextword length add 1 add def",
X    "    } {",
X    "     stringwidth pop curwidth add linewidth gt {",
X    "           textstring startchar",
X    "           lastwordbreak startchar sub",
X    "           getinterval linewidth proc",
X    "        /startchar lastwordbreak def",
X    "           /linewidth nextlinewidth def",
X    "     } if",
X    "     exit",
X    "   }",
X    "    ifelse",
X    "  } loop",
X    "  /lastchar textstring length def",
X    "  textstring startchar lastchar startchar sub getinterval linewidth proc",
X    "} def",
X
X    "/printmonth {",
X    "  90 rotate",
X    "  50 -120 translate",
X    "  /submonth 0 def",
X    "  calendar",
X    "  month 1 sub 0 eq {",
X    "    /lmonth 12 def",
X    "    /lyear year 1 sub def",
X    "  } {",
X    "    /lmonth month 1 sub def",
X    "    /lyear year def",
X    "  } ifelse",
X    "  month 1 add 13 eq {",
X    "    /nmonth 1 def",
X    "    /nyear year 1 add def",
X    "  } {",
X    "    /nmonth month 1 add def",
X    "    /nyear year def",
X    "  } ifelse",
X    "  /savemonth month def",
X    "  /saveyear year def",
X    "  /submonth 1 def",
X    "  gsave",
X    "    /offset monthHeight 80 sub 2 div neg 35 add def",
X    "    startday 3 lt",
X    "    { 500 weeks 1 sub neg monthHeight mul offset add translate }",
X    "    { 0  offset translate }",
X    "    ifelse",
X    "   /year lyear def",
X    "   /month lmonth def",
X    "    gsave",
X    "      .138 .138 scale",
X    "      10 -120 translate",
X    "      calendar",
X    "    grestore",
X    "    /submonth 1 def",
X    "    /year nyear def",
X    "    /month nmonth def",
X    "    100 0 translate",
X    "    gsave",
X    "      .138 .138 scale",
X    "      10 -120 translate",
X    "      calendar",
X    "    grestore",
X    "    /month savemonth def",
X    "    /year saveyear def",
X    "    /submonth 0 def",
X    "  grestore",
X    "} def",
X  (char *)0,
X};
X
Xprint_psmonth(fp, noteflag)
XFILE *fp;
Xint noteflag;
X{
X    char      **ap;
X    int        i, startdow, nweeks;
X    char    weeknums[70], wn[5];
X
X
X    /*
X     * muck with prolog for Monday first (ISO) weeks.
X     * N.B. if the prolog changes, these indices may also change
X     */
X    if (monday_first) {
X    pheader[11] = pmonfirst[0];
X    pheader[12] = pmonfirst[1];
X#ifndef SATBLK
X    pheader[36] = pmonfirst[2];
X    pheader[39] = pmonfirst[3];
X    pheader[121] = pmonfirst[4];
X#else
X    pheader[36] = pmonfirst[3];
X    pheader[118] = pmonfirst[4];
X#endif
X    }
X
X    /*
X     * Write out PostScript header
X     */
X    for (ap = prolog; *ap; ap++)
X    fprintf(fp, "%s\n", *ap);
X    fprintf (fp, "/daytextfont /%s def\n", PS_NOTE_FONT);
X
X#ifdef LANGUAGE
X    /*
X     * Write out PS prolog for local languages
X     */
X    for (ap = p_lang_header; *ap; ap++)
X    fprintf(fp, "%s\n", *ap);
X#endif
X
X    fprintf(fp, "%%EndProlog\n");
X
X    /*
X     * Write out common core PostScript
X     */
X    for (ap = pheader; *ap; ap++)
X    fprintf(fp, "%s\n", *ap);
X
X    /*
X     * Do the calendar
X     */
X    fprintf (fp, "/year %d def\n", current.tm_year+1900);
X    fprintf (fp, "/month %d def\n", current.tm_mon+1);
X    fprintf (fp, "printmonth\n");
X
X    First = current;
X
X    /*
X     *  Calculate and print the week numbers
X     */
X    current.tm_mday = 1;
X    fix_current_day();
X    if (monday_first)
X    startdow = (current.tm_wday == 0 ? 6 : current.tm_wday-1);
X    else
X    startdow = current.tm_wday;
X    nweeks = (startdow + monthlength(current.tm_mon) > 35 ? 6 : 5);
X    strcpy(weeknums, "/weeknums [");
X    for(i=0; i<nweeks; i++) {
X    sprintf(wn, " (%2d)", week_number());
X    strcat(weeknums, wn);
X    current.tm_mday += 7;
X    fix_current_day();
X    }
X    strcat( weeknums, " ] def");
X    fprintf(fp, "/weekn {\n");
X    fprintf(fp, "  %s\n", weeknums);
X    fprintf(fp, "  /Helvetica-Bold findfont 16 scalefont setfont\n");
X    fprintf(fp, "  /wy -10 def\n");
X    if (monday_first)
X    fprintf(fp, "  0 1 weeks 1 sub { 710 wy moveto\n");
X    else
X    fprintf(fp, "  0 1 weeks 1 sub { -35 wy moveto\n");
X    fprintf(fp, "    weeknums exch get show\n");
X    fprintf(fp, "    /wy wy monthHeight sub def\n");
X    fprintf(fp, "  } for\n");
X    if (monday_first)
X    fprintf(fp, "  705 40 moveto\n");
X    else
X    fprintf(fp, "  -40 40 moveto\n");
X    fprintf(fp, "  /Helvetica-Bold findfont 10 scalefont setfont\n");
X    fprintf(fp, "  (Week) show\n");
X    fprintf(fp, "} def\n");
X    fprintf(fp, "weekn\n");
X    current = First;
X
X    /*
X     * Set the font here to reduce the number of complainings if
X     * it is not found.
X     */
X    fprintf (fp, "daytextfont findfont 6 scalefont setfont\n");
X
X    current.tm_mday = 1;
X    for (i=0; i<monthlength(current.tm_mon); i++) {
X    fix_current_day();
X    (void)get_day_appts();
X    print_mday(fp, noteflag);
X    current.tm_mday++;
X    }
X    current = First;
X
X    /*
X     * Write out PostScript postlog
X     */
X    fprintf(fp, "showpage\n");
X}
X
Xprint_mday(fp, noteflag)
XFILE *fp;
Xint noteflag;
X{
X    int     slotno;
X    struct appt_entry    *aptr, *optr;
X    struct dayslot *slptr;
X
X    fprintf(fp, "%d [\n", current.tm_mday);
X
X    for (slotno=0; slotno<n_slots; slotno++) {
X    /* any appts in this timeslot? */
X    slptr = &slots[slotno];
X    if (slptr->active) {
X        /* get printable string from each appt */
X        for (aptr=slptr->first; aptr;) {
X        if (!deleted(aptr, slptr) &&
X            (!noteflag || ((aptr->flags & MARKED_NOTE) != MARKED_NOTE)))
X            fprintf(fp, "    (%s)\n", format_appt_nd(aptr, TRUE));
X        /* free up memory used */
X        optr = aptr;
X        aptr = aptr->next;
X        free(optr);
X        }
X    }
X    }
X    fprintf(fp, "] daytext\n");
X}
X#endif /* RASTER_ONLY */
X#endif /* NO_PRINTER */
END_OF_FILE
if test 17400 -ne `wc -c <'pcal.c'`; then
    echo shar: \"'pcal.c'\" unpacked with wrong size!
fi
# end of 'pcal.c'
fi
echo shar: End of archive 10 \(of 23\).
cp /dev/null ark10isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 23 archives.
    rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0

exit 0 # Just in case...
--
Kent Landfield                   INTERNET: [e-mail]
Sterling Software, IMD           UUCP:     uunet!sparky!kent
Phone:    [phone]         FAX:      [phone]
Please send comp.sources.misc-related mail to [e-mail].